home *** CD-ROM | disk | FTP | other *** search
/ Elite College Girls 1 / Elite College Girls - Volume 1.iso / pc / shared.dir / 01959.ls < prev    next >
Encoding:
Text File  |  1996-02-02  |  1.5 KB  |  56 lines
  1. on legalButton whichSprite
  2.   if whichSprite > 0 then
  3.     repeat while the mouseDown
  4.       updateStage()
  5.     end repeat
  6.     if rollOver(whichSprite) then
  7.       return 1
  8.     else
  9.       return 0
  10.     end if
  11.   end if
  12. end
  13.  
  14. on invertButton whichSprite
  15.   puppetTransition(0)
  16.   set oldInk to the ink of sprite whichSprite
  17.   set the ink of sprite whichSprite to 4
  18.   updateStage()
  19.   delayFor(20)
  20.   repeat while the stillDown
  21.     if rollOver(whichSprite) then
  22.       set the ink of sprite whichSprite to 4
  23.     else
  24.       set the ink of sprite whichSprite to oldInk
  25.     end if
  26.     updateStage()
  27.   end repeat
  28.   if the ink of sprite whichSprite = oldInk then
  29.     return 0
  30.     exit
  31.   end if
  32.   set the ink of sprite whichSprite to oldInk
  33.   return 1
  34. end
  35.  
  36. on pressButton whichSprite, ignoreRollOver
  37.   set the loc of sprite whichSprite to point(the locH of sprite whichSprite + 1, the locV of sprite whichSprite + 1)
  38.   updateStage()
  39.   set the loc of sprite whichSprite to point(the locH of sprite whichSprite + 1, the locV of sprite whichSprite + 1)
  40.   updateStage()
  41.   set delayFor to the timer + 20
  42.   repeat while the mouseDown or (the timer < delayFor)
  43.     nothing()
  44.   end repeat
  45.   if voidp(ignoreRollOver) then
  46.     set theResult to rollOver(whichSprite)
  47.   else
  48.     set theResult to ignoreRollOver
  49.   end if
  50.   set the loc of sprite whichSprite to point(the locH of sprite whichSprite - 1, the locV of sprite whichSprite - 1)
  51.   updateStage()
  52.   set the loc of sprite whichSprite to point(the locH of sprite whichSprite - 1, the locV of sprite whichSprite - 1)
  53.   updateStage()
  54.   return theResult
  55. end
  56.